home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / others / ltmd.zip / MW50.ZIP / WS.DEF < prev    next >
Text File  |  1988-12-05  |  9KB  |  322 lines
  1. ;-----------------------------------------------------------------------;
  2. ;                                    ;
  3. ;    LOGIMENU File definition for Wordstar Rel. 5.0            ;
  4. ;    Copyright (C) 1988 LOGITECH, Inc.                ;
  5. ;                                    ;
  6. ;-----------------------------------------------------------------------;
  7.  
  8. ; How To Prepare This Menu Program:
  9.  
  10. ;    1. Copy this menu definition file to the \MOUSE directory.
  11.  
  12. ;    2.    Compile it under the \MOUSE directory by typing "NEWMENU WS".
  13.  
  14. ; WARNING - This LogiMenu will only function correctly if the default help 
  15. ; level (4 - Pull-Down Menus) is used.
  16.  
  17. BEGIN    leftb, midb, rightb, leftm, rightm, upm, downm, 40, 20
  18. CHORDS    twob, twob, twob, allb
  19.  
  20.  
  21. ; Button definitions
  22.  
  23. leftb:    MATCH 2,27,,"S H O R T H A N D",F10,leftb2
  24. leftb2:   MATCH 2,1,,"╔",escape,return
  25.  
  26. midb:     MATCH 1,1,INVERSE,"JJ",chghelp,midb2
  27. midb2:    MATCH 2,70,,"OPENING",openmenu,midb3
  28. midb3:    MATCH 2,73,,"EDIT",editmenu,midb4
  29. midb4:    MATCH 2,27,,"S H O R T H A N D",shortchk,midb5
  30. midb5:    MATCH 3,8,,"revious",mledit,midb6
  31. midb6:    MATCH 2,1,,"╔",control1,midb7
  32. midb7:    MATCH 1,37,,"TelMerge",telmenu,midb8
  33. midb8:    MATCH 1,27,,"M A I L L I S T",maillist,midb9
  34. midb9:    MATCH 1,1,,"SORT ORDER",mlsort,midb10
  35. midb10:   MATCH 1,25,,"A D D",addrec,help
  36.  
  37. ; is it a control character submenu (^K,^O,^Q) ?
  38. control1:  MATCH 1,1,,"K",escape,control2
  39. control2: MATCH 1,1,,"Q",escape,control3
  40. control3: MATCH 1,1,,"O",escape,midb7
  41.  
  42. ; disable ? when adding or changing a macro in shorthand mode
  43. shortchk: MATCH 3,3,,"Type",nada,typeqm
  44.  
  45. rightb:   MATCH 2,27,,"S H O R T H A N D",ctrlu,rightb2
  46. rightb2:  MATCH 1,26,,"M A I L L I S T",typeq,escape
  47.  
  48.  
  49. ; Mouse movement definitions
  50.  
  51. leftm:     MATCH 1,37,,"TelMerge",nada,leftm2
  52. leftm2:    MATCH 2,1,,"╔",nada,mousel
  53.  
  54. rightm:    MATCH 1,37,,"TelMerge",nada,rightm2
  55. rightm2:   MATCH 2,1,,"╔",nada,mouser
  56.  
  57. upm:       MATCH 1,37,,"TelMerge",nada,upm2
  58. upm2:      MATCH 2,1,,"╔",nada,mouseu
  59.  
  60. downm:     MATCH 1,37,,"TelMerge",nada,downm2
  61. downm2:    MATCH 2,1,,"╔",nada,moused
  62.  
  63. ; Chord definitions
  64.  
  65. twob:   MATCH 2,27,,"S H O R T H A N D",help,twob2
  66. twob2:  MATCH 2,1,,"╔",nada,help
  67.  
  68. allb:   MATCH 2,70,,"OPENING",fexit,allb2
  69. allb2:  MATCH 2,27,,"S H O R T H A N D",help,allb3
  70. allb3:  MATCH 2,1,,"╔",nada,help
  71.  
  72.  
  73. ; Popup Menu for the Opening Screen
  74.  
  75. openmenu:  POPUP 8, 14, NORMAL
  76. ;            123456789012345678901234567890123456789012345678901234567890
  77.        TEXT "╔════════════════════════════╤═════════════════════╗"
  78.        TEXT "║  Speed write (new file)    │  Index              ║"
  79.        TEXT "║  Open a document file      │                     ║"
  80.        TEXT "║  Open a nondocument file   │  Table of contents  ║"
  81.        TEXT "║                            │                     ║"
  82.        TEXT "║  Print a file              │  Run a DOS command  ║"
  83.        TEXT "║  Merge print a file        │                     ║"
  84.        TEXT "║                            │  Change help level  ║"
  85.        TEXT "║  Change drive/directory    │                     ║"
  86.        TEXT "║                            │  Display RAM usage  ║"
  87.        TEXT "║  Copy a file               │                     ║"
  88.        TEXT "║  Delete a file             │  MailList           ║"
  89.        TEXT "║  Rename a file             │                     ║"
  90.        TEXT "║  Protect/unprotect a file  │  TelMerge           ║"
  91.        TEXT "║                            │                     ║"
  92.        TEXT "║  Help                      │  Exit WordStar      ║"
  93.        TEXT "╚════════════════════════════╧═════════════════════╝"
  94. ;            123456789012345678901234567890123456789012345678901234567890       
  95.        SELECT 2,3,26,fopens
  96.        SELECT 3,3,26,fopend
  97.        SELECT 4,3,26,fopennd
  98.        
  99.        SELECT 6,3,26,fprint
  100.        SELECT 7,3,26,fmerge
  101.        
  102.        SELECT 9,3,26,fchange
  103.        
  104.        SELECT 11,3,26,fcopy
  105.        SELECT 12,3,26,fdelete
  106.        SELECT 13,3,26,frename
  107.        SELECT 14,3,26,fprotect
  108.        
  109.        SELECT 16,3,26,help
  110.        
  111.        SELECT 2,32,19,oindex
  112.        SELECT 4,32,19,otable
  113.        
  114.        SELECT 6,32,19,odos
  115.        SELECT 8,32,19,ohlevel
  116.        
  117.        SELECT 10,32,19,oram
  118.        
  119.        SELECT 12,32,19,amail
  120.        SELECT 14,32,19,atelmerge
  121.        
  122.        SELECT 16,32,19,fexit
  123.        
  124.        PEND
  125.        
  126.  
  127. ; Popup Menus for the Edit Screen
  128.  
  129. editmenu: POPUP 2, 2, NORMAL
  130.           TEXT "═" ; just uses existing menus on screen
  131.           SELECT 1, 4, 4, efilemenu
  132.           SELECT 1,12, 4, eeditmenu
  133.           SELECT 1,20, 5, egotomenu
  134.           SELECT 1,29, 6, ewinmenu
  135.           SELECT 1,39, 6, elaymenu
  136.           SELECT 1,49, 5, estylemenu
  137.           SELECT 1,58, 5, eothermenu
  138.           
  139.           PEND
  140.           
  141.                 
  142. ; Popup Menu for the TelMerge Screen
  143.        
  144. telmenu: MENU "TelMerge Menu",1,1,NORMAL
  145.          OPTION "Choose/Create Control File",telother
  146.          OPTION "Go Online",telonline
  147.          OPTION "Help",help
  148.          OPTION "Exit TelMerge",telexit
  149.          MEND
  150.  
  151.          
  152. ; Popup Menu for Change Help Level
  153.  
  154. chghelp: POPUP 8, 24, NORMAL
  155.          TEXT " 4" ;uses text already on screen
  156.          TEXT " " 
  157.          TEXT " "
  158.          TEXT " "
  159.          TEXT " "
  160.          TEXT " "
  161.          TEXT "═"
  162.          TEXT " "
  163.          TEXT "Warning: Changing the help level to anything other than"
  164.          TEXT "         Level 4 will cause the mouse not to function"
  165.          TEXT "         correctly."
  166.          SELECT 1,1,56,type4
  167.          SELECT 2,1,56,type3
  168.          SELECT 3,1,56,type2
  169.          SELECT 4,1,56,type1
  170.          SELECT 5,1,56,type0
  171.          PEND
  172.  
  173.  
  174. ; Popup Menu for MailList
  175.  
  176. maillist: POPUP 4, 7, NORMAL
  177.           TEXT " " ;uses text already on screen
  178.           TEXT " "
  179.           TEXT " "
  180.           TEXT " "
  181.           TEXT " "
  182.           TEXT " "
  183.           TEXT "═"
  184.           TEXT "                   Use mouse to select a function   "
  185.           SELECT 1,1,23,typec
  186.           SELECT 1,29,26,typel
  187.           SELECT 3,1,23,typea
  188.           SELECT 3,29,26,types
  189.           SELECT 5,1,23,typev
  190.           SELECT 5,29,26,typeu
  191.           SELECT 1,62,10,help
  192.           SELECT 3,62,10,typeq
  193.           PEND
  194.  
  195.  
  196. ; Popup Menu for MailList View and Edit Records & Locate by #
  197.  
  198. mledit:  POPUP 3, 5, NORMAL
  199.          TEXT " " ;uses text already on screen
  200.          TEXT " "
  201.          TEXT " "
  202.          TEXT "─"
  203.          TEXT "                    Use mouse to select a function    "
  204.          SELECT 1,1,11,ctrlp
  205.          SELECT 1,11,13,ctrln
  206.          SELECT 1,29,29,ctrlw
  207.          SELECT 1,63,11,help
  208.          SELECT 3,1,15,ctrle
  209.          SELECT 3,29,30,ctrlc
  210.          SELECT 3,63,11,escape
  211.          PEND
  212.          
  213.  
  214. ; Popup Menu for MailList Sort Records
  215.  
  216. mlsort:  POPUP 3, 5, NORMAL
  217.          TEXT " " ;uses text already on screen
  218.          TEXT " "
  219.          TEXT " "
  220.          TEXT "─"
  221.          TEXT "                    Use mouse to select a function    "
  222.          SELECT 1,1,14,ctrle
  223.          SELECT 2,1,12,ctrlk
  224.          SELECT 3,1,18,ctrls
  225.          SELECT 1,29,17,ctrlu
  226.          SELECT 2,29,8,typea
  227.          SELECT 3,29,27,ctrlc
  228.          SELECT 2,36,9,typed
  229.          SELECT 1,63,11,help
  230.          SELECT 3,63,11,escape
  231.          PEND
  232.  
  233.  
  234. ; In MailList Add New Records either a Popup Menu or SpaceBar
  235.  
  236. addrec:  MATCH 3,6,,"^C",armenu,spacebar
  237.  
  238. armenu:  POPUP 3,5,NORMAL
  239.          TEXT " " ;uses text already on screen
  240.          TEXT " "
  241.          TEXT " "
  242.          TEXT "─"
  243.          TEXT "                    Use mouse to select a function     "
  244.          SELECT 1,1,28,ctrlc
  245.          SELECT 1,32,28,ctrlw
  246.          SELECT 1,63,11,help
  247.          SELECT 3,63,11,escape
  248.          PEND
  249.  
  250.         
  251.        
  252. efilemenu:     TYPE 0, 33
  253. eeditmenu:     TYPE 0, 18
  254. egotomenu:     TYPE 0, 34
  255. ewinmenu:      TYPE 0, 17
  256. elaymenu:      TYPE 0, 38
  257. estylemenu:    TYPE 0, 31
  258. eothermenu:    TYPE 0, 24
  259.  
  260. fopens:        TYPE 0, 33, "S"
  261. fopend:        TYPE 0, 33, "D"
  262. fopennd:       TYPE 0, 33, "N"
  263. fprint:        TYPE 0, 33, "P"
  264. fmerge:        TYPE 0, 33, "M"
  265. fchange:       TYPE 0, 33, "L"
  266. fcopy:         TYPE 0, 33, "O"
  267. fdelete:       TYPE 0, 33, "Y"
  268. frename:       TYPE 0, 33, "E"
  269. fprotect:      TYPE 0, 33, "C"
  270. fexit:         TYPE 0, 33, "X"
  271.  
  272. oindex:        TYPE 0, 24, "I"
  273. otable:        TYPE 0, 24, "T"
  274. odos:          TYPE 0, 24, "R"
  275. ohlevel:       TYPE 0, 24, "JJ"
  276. oram:          TYPE 0, 24, "?"
  277.  
  278. amail:         TYPE 0, 30, "AM"
  279. atelmerge:     TYPE 0, 30, "AT"
  280.  
  281. telother:      TYPE 0, 63
  282. telonline:     TYPE 0, 66
  283. telexit:       TYPE 0, 68
  284.  
  285. mousel:        TYPE 0, 75
  286. mouser:        TYPE 0, 77
  287. mouseu:        TYPE 0, 72
  288. moused:        TYPE 0, 80
  289.  
  290. nada:          NOTHING
  291. return:        TYPE ENTER
  292. escape:        TYPE ESC
  293. spacebar:      TYPE 32
  294.  
  295. typeqm:        TYPE "?"
  296. typea:         TYPE "A"
  297. typec:         TYPE "C"
  298. typed:         TYPE "D"
  299. typel:         TYPE "L"
  300. types:         TYPE "S"
  301. typeu:         TYPE "U"
  302. typev:         TYPE "V"
  303. typeq:         TYPE "Q"
  304.  
  305. help:          TYPE 0, 59
  306. f10:           TYPE 0, 68
  307.  
  308. ctrlc:         TYPE 3
  309. ctrle:         TYPE 5
  310. ctrlk:         TYPE 11
  311. ctrln:         TYPE 14
  312. ctrlp:         TYPE 16
  313. ctrls:         TYPE 19
  314. ctrlu:         TYPE 21
  315. ctrlw:         TYPE 23
  316.  
  317. type4:         TYPE "4",ENTER
  318. type3:         TYPE "3",ENTER
  319. type2:         TYPE "2",ENTER
  320. type1:         TYPE "1",ENTER
  321. type0:         TYPE "0",ENTER
  322.